object FileViewForm: TFileViewForm Left = 204 Top = 180 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Raw file contents' ClientHeight = 543 ClientWidth = 786 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter Scaled = False ShowHint = True OnActivate = FormActivate OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object nextbutton: TSpeedButton Left = 59 Top = 512 Width = 38 Height = 22 Hint = 'Next cluster in chain' Caption = '>' ParentShowHint = False ShowHint = True OnClick = nextbuttonClick end object frontbutton: TSpeedButton Left = 99 Top = 512 Width = 54 Height = 22 Hint = 'Go to the start cluster' Caption = '<<' ParentShowHint = False ShowHint = True OnClick = frontbuttonClick end object lastbutton: TSpeedButton Left = 19 Top = 512 Width = 38 Height = 22 Hint = 'Previous cluster in chain' Caption = '<' ParentShowHint = False ShowHint = True OnClick = lastbuttonClick end object findnextbutton: TSpeedButton Left = 155 Top = 512 Width = 94 Height = 22 Hint = 'Find next occurrence of search string in this cluster' Caption = 'Find Next' ParentShowHint = False ShowHint = True OnClick = findnextbuttonClick end object copybutton: TSpeedButton Left = 254 Top = 512 Width = 75 Height = 22 Hint = 'Copy cluster text to the clipboard' Caption = '&Copy All' ParentShowHint = False ShowHint = True OnClick = copybuttonClick end object fofslabel: TLabel Left = 16 Top = 112 Width = 28 Height = 15 Hint = 'File offset' Caption = 'FOfs' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object cofslabel: TLabel Left = 116 Top = 112 Width = 28 Height = 15 Hint = 'Cluster offset' Caption = 'COfs' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object datalabel: TLabel Left = 176 Top = 112 Width = 28 Height = 15 Caption = 'Data' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object offsetlabel: TLabel Left = 692 Top = 112 Width = 77 Height = 15 Alignment = taRightJustify Caption = 'offsetlabel' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object startoffilelabel: TLabel Left = 15 Top = 454 Width = 61 Height = 16 Caption = 'Start of file' end object endoffilelabel: TLabel Left = 713 Top = 454 Width = 58 Height = 16 Alignment = taRightJustify Caption = 'End of file' end object offsetlabel2: TLabel Left = 686 Top = 100 Width = 84 Height = 15 Alignment = taRightJustify Caption = 'offsetlabel2' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] ParentFont = False end object fradGroupBox: TGroupBox Left = 16 Top = 8 Width = 202 Height = 93 Caption = 'Raw file data' TabOrder = 0 object fhexRad: TRadioButton Left = 24 Top = 45 Width = 49 Height = 17 Hint = 'Hexadecimal display' Caption = 'Hex' TabOrder = 1 OnClick = fhexRadClick end object fdecrad: TRadioButton Left = 24 Top = 67 Width = 49 Height = 17 Hint = 'Decimal display' Caption = 'Dec' TabOrder = 2 OnClick = fhexRadClick end object fasciirad: TRadioButton Left = 24 Top = 23 Width = 57 Height = 17 Hint = 'Ascii text display' Caption = 'Text' Checked = True TabOrder = 0 TabStop = True OnClick = fhexRadClick end object compactcb: TCheckBox Left = 86 Top = 23 Width = 113 Height = 17 Hint = 'Make as readable as possible' Caption = 'Compact view' TabOrder = 3 OnClick = compactcbClick end end object okbutton: TButton Left = 696 Top = 504 Width = 75 Height = 33 Caption = '&Ok' TabOrder = 4 OnClick = okbuttonClick end object clusterbox: TGroupBox Left = 456 Top = 8 Width = 313 Height = 93 Caption = 'Cluster' TabOrder = 1 object Label5: TLabel Left = 16 Top = 33 Width = 82 Height = 16 Caption = '# This cluster:' end object clusterLabel: TLabel Left = 190 Top = 33 Width = 105 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'clusterLabel' end object nextclustertitle: TLabel Left = 16 Top = 65 Width = 83 Height = 16 Caption = '# Next cluster:' end object nextclusterLabel: TLabel Left = 198 Top = 65 Width = 97 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'nextclusterLabel' end object inthisfilelabel: TLabel Left = 16 Top = 17 Width = 67 Height = 16 Caption = '# In this file:' end object fileclusterlabel: TLabel Left = 209 Top = 17 Width = 86 Height = 16 Alignment = taRightJustify Caption = 'fileclusterlabel' end object sectorstitlelabel: TLabel Left = 48 Top = 49 Width = 57 Height = 16 Caption = 'Sector #s' end object sectorslabel: TLabel Left = 112 Top = 49 Width = 183 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'sectorslabel' end end object Tb: TTrackBar Left = 9 Top = 430 Width = 769 Height = 25 Orientation = trHorizontal PageSize = 1 Frequency = 1 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 2 ThumbLength = 20 TickMarks = tmBottomRight TickStyle = tsNone OnChange = TbChange end object fview: TRichEdit Left = 16 Top = 128 Width = 753 Height = 297 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] HideSelection = False Lines.Strings = ( 'fview') ParentFont = False ReadOnly = True ScrollBars = ssBoth TabOrder = 5 WordWrap = False OnKeyDown = fviewKeyDown OnMouseDown = fviewMouseDown end object memoryfilegroupbox: TGroupBox Left = 344 Top = 472 Width = 329 Height = 65 Caption = 'Memory file (saved clusters)' TabOrder = 3 object memstatuslabel: TLabel Left = 8 Top = 17 Width = 313 Height = 16 Alignment = taCenter AutoSize = False Caption = 'memstatuslabel' end object addclusterbutton: TButton Left = 14 Top = 37 Width = 129 Height = 22 Hint = 'Add/Append the current cluster to the memory file' Caption = '&Add this cluster' TabOrder = 0 OnClick = addclusterbuttonClick end object newfilebutton: TButton Left = 154 Top = 37 Width = 51 Height = 22 Hint = 'Clear the memory file' Caption = '&New' TabOrder = 1 OnClick = newfilebuttonClick end object savefilebutton: TButton Left = 216 Top = 37 Width = 97 Height = 22 Hint = 'Save the memory file (of saved clusters) to a file on disk' Caption = '&Save to disk' TabOrder = 2 OnClick = savefilebuttonClick end end object SaveDialog: TSaveDialog Left = 112 Top = 480 end end